home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / JTools / Demos / demo_speak < prev    next >
Encoding:
Text File  |  1991-08-14  |  983 b   |  38 lines
  1. \ Demonstrate access to the Amiga Voice Synthesis
  2. \ Translator and Narrator Libraries.
  3. \
  4. \ Author: Phil Burk
  5. \ Copyright 1986 Delta Research
  6.  
  7. include? speak ju:speak
  8.  
  9. ANEW TASK_DEMO_SPEAK
  10. \ Define characters.
  11. : GEORGE  ( -- , Define GEORGE voice. )
  12.     MALE speak.sex!
  13.     200 speak.rate!
  14.     80 speak.pitch!
  15. ;
  16.  
  17. : MARTHA ( -- , Define MARTHA voice. )
  18.     FEMALE speak.sex!
  19.     120 speak.rate!
  20.     200 speak.pitch!
  21. ;
  22.  
  23. : DEMO.SPEAK intuition?
  24.     speak.init  ( initialize speach system )
  25. \ Notice that you may have to spell things wrong to sound right!
  26.     " Welcome to the Jay Forth Speech demo." speak
  27.     GEORGE " What shall we do tonight?" speak
  28.     MARTHA " I want to do something stimulating!" speak
  29.     GEORGE " Tee Vee is definitely out then," speak
  30.         " and my favorite things are too dangerous," speak
  31.         " except for one, but my stereo is broken!" speak
  32.     MARTHA " I've got it! Let's program in Jay Forth!" speak
  33.     GEORGE " What a great idea!" speak
  34.     speak.term
  35. ;
  36.  
  37. cr ." Enter:  DEMO.SPEAK    to hear demo!" cr
  38.